home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 34.zip
/
BS1 part 34
/
FredFish PD 319.adf
/
CNewsSrc
/
uupc.lzh
/
vfprintf.c
< prev
next >
Wrap
C/C++ Source or Header
|
1990-02-06
|
5KB
|
199 lines
/* Portable vfprintf and vprintf by Robert A. Larson <blarson@skat.usc.edu> */
/* Copyright 1989 Robert A. Larson.
* Distribution in any form is allowed as long as the author
* retains credit, changes are noted by their author, and the
* copyright message remains intact. This program comes as-is
* with no warranty of fitness for any purpose.
*
* Thanks to Doug Gwen, Chris Torek, and others who helped clarify
* the ANSI printf specs.
*
* Please send any bug fixes and improvements to blarson@skat.usc.edu .
* The use of goto is NOT a bug.
*/
/* Feb 9, 1989 blarson First usenet release */
/* This code implements the vfprintf function, without relying on
* the existance of _doprnt or other system specific code.
*
* Define NOVOID if (void *) is not a supported type.
*
* Two compile options are available for efficency:
* INTSPRINTF should be defined if sprintf is int and returns
* the number of chacters formatted.
* LONGINT should be defined if sizeof(long) == sizeof(int)
*
* They only make the code smaller and faster, they need not be defined.
*
* UNSIGNEDSPECIAL should be defined if unsigned is treated differently
* than int in argument passing. If this is defined, and LONGINT is not,
* the compiler must support the type unsigned long.
*
* Most quirks and bugs of the available fprintf fuction are duplicated,
* however "*" in the width and precision fields will work correctly
* even if fprintf does not support this. The %n format and the return
* count will only work if fprintf returns the number of characters
* formatted.
*
* Bad format strings, or those with very long width and precision
* fields (including expanded * fields) will cause undesired results.
*/
#define ULONGINT unsigned long
#ifdef OSK /* os9/68k can take advantage of both */
# define INTSPRINTF
# define LONGINT
# undef ULONG
# define ULONG unsigned int
#endif /* OSK */
#ifdef MCH_AMIGA /* Manx looks pretty much (!?) like Lattice */
# define INTSPRINTF
# undef ULONG
# define ULONG unsigned long
# if sizeof(long) == sizeof(int)
# define LONGINT /* Defined if (long) == (int) */
# endif
#endif
#ifdef AMIGA /* Lattice can take advantage of both */
# define INTSPRINTF
# if sizeof(long) == sizeof(int)
# define LONGINT
# endif
# undef ULONG
# define ULONG unsigned long
#endif /* AMIGA */
#ifdef NOVOID
typedef char *pointer;
#else
typedef void *pointer;
#endif /* NOVOID */
#include <stdio.h>
#ifdef INTSPRINTF
# define Sprintf(string,format,arg) (sprintf((string),(format),(arg)))
#else
# define Sprintf(string,format,arg) (\
sprintf((string),(format),(arg)),\
strlen(string)\
)
#endif /* INTSPRINTF */
#ifdef __STDC__
# include <stdarg.h>
#else
# include "varargs.h"
#endif /* __STDC__ */
typedef int *intp;
int vfprintf(dest, format, args)
FILE *dest;
register char *format;
va_list args;
{
register char c;
register char *tp;
register int count = 0;
char tempfmt[64];
tempfmt[0] = '%';
while (c = *format++) {
if (c == '%') {
tp = &tempfmt[1];
continue_format:
switch(c = *format++) {
case 's':
*tp++ = c;
*tp = '\0';
count += fprintf(dest, tempfmt, va_arg(args, char *));
break;
case 'u':
case 'x':
case 'o':
case 'X':
case 'd':
case 'c':
case 'i':
*tp++ = c;
*tp = '\0';
#ifndef LONGINT
if (tempfmt[1] == 'l')
count += fprintf(dest, tempfmt, va_arg(args, ULONG));
else
#endif /* LONGINT */
count += fprintf(dest, tempfmt, va_arg(args, int));
break;
case 'f':
case 'e':
case 'E':
case 'g':
case 'G':
*tp++ = c;
*tp = '\0';
count += fprintf(dest, tempfmt, va_arg(args, double));
break;
case 'p':
*tp++ = c;
*tp = '\0';
count += fprintf(dest, tempfmt, va_arg(args, pointer));
break;
case '-':
case '+':
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
case '.':
case ' ':
case '#':
case 'h':
#ifndef LONGINT
case 'l':
*tp++ = c;
/* FALLTHROUGH */
#else /* !LONGINT */
*tp++ = c;
/* FALLTHROUGH */
case 'l':
#endif /* LONGINT */
goto continue_format;
case '*':
tp += Sprintf(tp, "%d", va_arg(args, int));
goto continue_format;
case 'n':
*va_arg(args, intp) = count;
break;
case '%':
default:
putc(c, dest);
count++;
break;
}
} else {
putc(c, dest);
count++;
}
}
return( count );
}
vprintf(format, args)
char *format;
va_list args;
{
return( vfprintf(stdout, format, args) );
}